home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / misc / sci / PetitChimiste.lha / PetitChimiste / Install-PetitChimiste < prev    next >
Text File  |  1997-02-26  |  2KB  |  129 lines
  1. ; Installation script for PetitChimiste
  2. ; $VER: Install-PetitChimiste 1.0 (21/02/97)
  3.  
  4. (set @default-dest "SYS:")
  5. (set default_lang 1)
  6.  
  7. (if (< (/ (getversion) 65536) 39)
  8.   (abort "This program requires Kickstart 3.0 or greater to run !")
  9. )
  10.  
  11. (set destdir
  12.   (askdir
  13.     (prompt "Select where to install PetitChimiste.\nA new drawer will be created.")
  14.     (help @askdir-help)
  15.     (default @default-dest)
  16.     (newpath)
  17.   )
  18. )
  19.  
  20. (set @default-dest
  21.   (tackon destdir "PetitChimiste")
  22. )
  23.  
  24. (makedir @default-dest
  25.   (prompt "Creating Drawer PetitChimiste")
  26.   (help @makedir-help)
  27.   (infos)
  28. )
  29.  
  30. (copylib
  31.   (prompt "Installing PetitChimiste")
  32.   (help @copylib-help)
  33.   (source "PetitChimiste")
  34.   (dest @default-dest)
  35.   (infos)
  36. )
  37.  
  38. (set lang
  39.   (askoptions
  40.     (prompt "Which languages should be installed ?")
  41.     (help @askoptions-help)
  42.     (choices
  43.         "English"
  44.         "Français"
  45.         "Deutsch"
  46.         "Italiano"
  47.     )
  48.     (default 1)
  49.   )
  50. )
  51.  
  52. (set n 0)
  53. (while (set language
  54.     (select n
  55.        "english"
  56.        "français"
  57.        "deutsch"
  58.        "italiano"
  59.        "")
  60.   )
  61.   (
  62.     (if (IN lang n)
  63.       (
  64.         (if (<> 0 n)
  65.           (
  66.             (set catalog_dir (cat "catalogs/" language))
  67.             (set locale_dir  (cat "locale:catalogs/" language))
  68.  
  69.             (copyfiles
  70.               (prompt "Installing Catalogs")
  71.               (source catalog_dir)
  72.               (dest locale_dir)
  73.               (all)
  74.             )
  75.           )
  76.         )
  77.       )
  78.     )
  79.     (set n (+ n 1))
  80.   )
  81. )
  82.  
  83. (set lang
  84.   (askoptions
  85.     (prompt "Which Guide should be installed ?")
  86.     (help @askoptions-help)
  87.     (choices
  88.         "English"
  89.         "Français"
  90.     )
  91.     (default 1)
  92.   )
  93. )
  94.  
  95. (makedir (tackon @default-dest "Guides") (infos))
  96. (set n 0)
  97. (while
  98.   (set language
  99.     (select n  "English"
  100. ;               "Deutsch"
  101.                "Français"
  102. ;               "Italiano"
  103.                "")
  104.   )
  105.   (
  106.     (if (IN lang n)
  107.       (
  108.         (set guides_dir (cat "Guides/" language))
  109.         (copyfiles
  110.           (prompt "Installing Guides")
  111.           (source guides_dir)
  112.           (dest (tackon @default-dest "Guides"))
  113.           (all)
  114.         )
  115.       )
  116.     )
  117.     (set n (+ n 1))
  118.   )
  119. )
  120.  
  121. (makedir (tackon @default-dest "Molecules") (infos))
  122. (copyfiles
  123.   (prompt "Installing Molecules")
  124.   (help @copyfiles-help)
  125.   (source "Molecules")
  126.   (dest (tackon @default-dest "Molecules"))
  127.   (all)
  128. )
  129.